﻿Public Class IngresarUsuario

    Public Function insertar(ByVal email As String, ByVal passw As String, ByVal fec_nac As Date, ByVal nombre As String, ByVal ape_pat As String, ByVal ape_mat As String, ByVal dni As Integer, ByVal pais As String, ByVal ciudad As String, ByVal direccion As String, ByVal telefono_fijo As String, ByVal telefono_movil As String) As Usuario

        Dim modelo As New Usuario()
        modelo.email = email
        modelo.passw = passw
        modelo.fec_nac = fec_nac
        modelo.nombre = nombre
        modelo.ape_pat = ape_pat
        modelo.ape_mat = ape_mat
        modelo.dni = dni
        modelo.pais = pais
        modelo.ciudad = ciudad
        modelo.direccion = direccion
        modelo.telefono_fijo = telefono_fijo
        modelo.telefono_movil = telefono_movil

        Dim dao As New UsuarioDAO
        Return dao.insertar(modelo)
    End Function


End Class
